home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1998-08_1998_CSW_Side_A.d64 / install speeder (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  44 lines
  1. 0 print"[147]"tab(5)"[208]rogramm zur [201]nstallation von"
  2. 1 printtab(4)chr$(34)"[199]eo[211]peed[194]oot"chr$(34)"  auf [199]eo[205]ake[194]oot"
  3. 2 printtab(13)"[194]ootdisketten."
  4. 3 print"[194]itte [194]ootdisk in [204]aufwerk 8 legen und"
  5. 4 printtab(12)"[211]pace druecken !"
  6. 5 poke198,0:wait203,60:print"[208]rogramm arbeitet ..."
  7. 8 fora=0to19:readx:poke820+a,x:next
  8. 9 fora=0to81:readx:poke52992+a,x:next
  9. 10 x$="geospeedboot":gosub1000:if e then end
  10. 20 t(1)=ts:s(1)=ss
  11. 30 x$="geos":gosub1000:if e then end
  12. 40 t(2)=ts:s(2)=ss
  13. 50 x$="geoboot":gosub1000:if e then end
  14. 60 t(3)=ts:s(3)=ss
  15. 70 :
  16. 72 lw=0
  17. 80 fora=0to2:x$="m-w"+chr$(lw)+chr$(5)+chr$(32)
  18. 90 forx=0to31:ready:x$=x$+chr$(y):next
  19. 100 open1,8,15:print#1,x$:close1:lw=lw+32:next
  20. 110 x$="m-w"+chr$(lw)+chr$(5)+chr$(18):forx=0to11:ready:x$=x$+chr$(y):next
  21. 120 x$=x$+chr$(t(2))+chr$(s(2))+chr$(t(1))+chr$(s(1))+chr$(t(3))+chr$(s(3))
  22. 130 open1,8,15:print#1,x$:print#1,"u3":close1
  23. 140 print"[199]eo[211]peed[194]oot installiert!":end
  24. 999 stop
  25. 1000 rem * block einlesen *
  26. 1010 data 162,2,32,198,255,160,0,32,207,255,153,0,192,200,208,247,32,204,255,96
  27. 1011 rem * datei suchen *
  28. 1012 data166,2,169,160,157,240,207,232,224,16,208,248,162,2,160,192,134,250
  29. 1013 data132,251,160,0,177,250,41,191,230,250,230,250,230,250,201,130,208,14
  30. 1014 data160,255,200,192,16,240,19,185,240,207,209,250,240,244,G(NULL)(NULL)rnd@(NULL)(NULL)(NULL)(NULL)log<(NULL)(NULL){$7f}(NULL)(NULL)sqrsin(NULL)<#waitlen32chr$(NULL)
  31. J(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)listgosub(NULL)open(NULL)(NULL)list(NULL)>9Cif(NULL)(NULL)(NULL)if(NULL)(NULL)Cif(NULL)(NULL)(NULL)if(NULL)(NULL)(NULL)if(NULL);(NULL)
  32. (NULL);(NULL)(NULL)(NULL);(NULL)(NULL)(NULL);(NULL)(NULL)(NULL);(NULL)(NULL)(NULL)B(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)dimstr$dimpilet(NULL)dim(NULL)(NULL)@str$(NULL)x(NULL)@(NULL)forprint#remleft$if(NULL)fn(NULL)(NULL)(NULL)fn(NULL)(NULL)Ilet(NULL)stepprint#(NULL)(NULL)posprint#(NULL)letgoto(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)Y(NULL)let(NULL)print#(NULL)(NULL)(NULL)X(NULL)open(NULL)gosub(NULL)
  33. $sys820:close2:close1
  34. 1070 fora=1tolen(x$):poke53231+a,asc(mid$(x$,a,1)):next:poke2,len(x$)
  35. 1080 sys52992:if peek(780)=1 then 1120
  36. 1090 if peek(780)=0 then t=peek(49152):s=peek(49153)
  37. 1100 ift=0thenprint"[196]atei "chr$(34)x$chr$(34)" nicht auf [196]iskette!":e=1:return
  38. 1110 goto 1040
  39. 1120 ts=peek(53230):ss=peek(53231):return
  40. 1990 rem * floppyprogramm *
  41. 2000 data32,5,208,174,108,5,172,109,5,134,8,132,9,169,128,133,1,197,1,240,252
  42. 2001 data162,11,189,96,5,157,80,4,202,16,247,169,12,141,46,4,169,0,162,203,141
  43. 2002 data78,4,142,79,4,169,144,133,1,197,1,240,252,174,110,5,172,111,5,134,8
  44. 2003 data132,9,169,128,133,1,197,1,240,252,174,112,5,172,113,5,142,68,4,140
  45. 2004 data70,4,169,144,133,1,197,1,240,252,76,5,208,71,69,79,83,80,69,69,68,66
  46. 2005 data79,79,84
  47.